home *** CD-ROM | disk | FTP | other *** search
/ ShareWare OnLine 2 / ShareWare OnLine Volume 2 (CMS Software)(1993).iso / graphics / rtag20a.zip / ORBIT.POV < prev    next >
Text File  |  1993-02-06  |  1KB  |  56 lines

  1. #include "colors.inc"
  2. #include "shapes.inc"
  3. #include "textures.inc"
  4. #include "orbit.inc"
  5.  
  6. #declare Planet_Texture = texture {
  7.     color red .7 green .3 blue 0 ambient .5 diffuse .9
  8. }
  9.  
  10. camera {
  11.     location <0 48 -5>
  12.     direction <0 0 1.5>
  13.     up <0 1 0>
  14.     right <1.33 0 0>
  15.     look_at <0 0 0>
  16.     translate <6 0 0>
  17. }
  18.  
  19. //  Here is the sun positioned at (0,0)
  20. object {
  21.    union {
  22.       sphere { <0 0 0> 1
  23.          texture {
  24.             color red 1.0 green 0.6 alpha 0.35
  25.             ambient 1.0
  26.             diffuse 0.0
  27.         }
  28.       }
  29.       light_source { <0  0  0>  color White }
  30.    }
  31. }
  32.  
  33. //  Planet 1
  34. object {
  35.     sphere { <x1 0 z1> .5}
  36.     texture {Planet_Texture}
  37. }
  38.  
  39. //  Planet 2
  40. object {
  41.     sphere { <x2 0 z2> .7}
  42.     texture {color red .8 green .1 blue .1 ambient .5 diffuse .9}
  43. }
  44.  
  45. //  Planet 3
  46. object {
  47.     sphere { <x3 0 z3> .55}
  48.     texture {color red .4 green .2 blue .5 ambient .5 diffuse .9}
  49. }
  50.  
  51. //  Moon around planet 3
  52. object {
  53.     sphere { <xm 0 zm> .25}
  54.     texture {color red .8 green .2 blue 0 ambient .5 diffuse .9}
  55. }
  56.